/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / prim / scrollbar.elc.z / scrollbar.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 54 68 75 20 4a | 61 6e 20 32 32 20 31 34 |on Thu J|an 22 14|
|00000040| 3a 34 35 3a 30 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:45:02 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 78 65 | 6d 61 63 73 2d 32 30 2e |emacs/xe|macs-20.|
|00000090| 33 2f 6c 69 73 70 2f 70 | 72 69 6d 2f 73 63 72 6f |3/lisp/p|rim/scro|
|000000a0| 6c 6c 62 61 72 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |llbar.el|.;;; ema|
|000000b0| 63 73 20 76 65 72 73 69 | 6f 6e 20 32 30 2e 33 20 |cs versi|on 20.3 |
|000000c0| 22 56 61 74 69 63 61 6e | 20 43 69 74 79 22 20 58 |"Vatican| City" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 73 63 72 6f 6c |  (error| "`scrol|
|000001f0| 6c 62 61 72 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |lbar.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 64 65 66 61 6c 69 61 73 |il))...(|defalias|
|00000260| 20 27 69 6e 69 74 2d 73 | 63 72 6f 6c 6c 62 61 72 | 'init-s|crollbar|
|00000270| 2d 66 72 6f 6d 2d 72 65 | 73 6f 75 72 63 65 73 20 |-from-re|sources |
|00000280| 23 5b 28 6c 6f 63 61 6c | 65 29 20 22 c0 c1 21 ad |#[(local|e) "..!.|
|00000290| 8f 5c 6e c3 61 ac 87 c4 | 5c 6e 21 c1 61 ad 83 c5 |.\n.a...|\n!.a...|
|000002a0| 5c 6e 21 87 22 20 5b 66 | 65 61 74 75 72 65 70 20 |\n!." [f|eaturep |
|000002b0| 78 20 6c 6f 63 61 6c 65 | 20 67 6c 6f 62 61 6c 20 |x locale| global |
|000002c0| 64 65 76 69 63 65 2d 6f | 72 2d 66 72 61 6d 65 2d |device-o|r-frame-|
|000002d0| 74 79 70 65 20 78 2d 69 | 6e 69 74 2d 73 63 72 6f |type x-i|nit-scro|
|000002e0| 6c 6c 62 61 72 2d 66 72 | 6f 6d 2d 72 65 73 6f 75 |llbar-fr|om-resou|
|000002f0| 72 63 65 73 5d 20 32 5d | 29 0a 23 40 32 33 39 20 |rces] 2]|).#@239 |
|00000300| 46 75 6e 63 74 69 6f 6e | 20 63 61 6c 6c 65 64 20 |Function| called |
|00000310| 77 68 65 6e 20 74 68 65 | 20 63 68 61 72 2d 6c 65 |when the| char-le|
|00000320| 66 74 20 61 72 72 6f 77 | 20 6f 6e 20 74 68 65 20 |ft arrow| on the |
|00000330| 73 63 72 6f 6c 6c 62 61 | 72 20 69 73 20 63 6c 69 |scrollba|r is cli|
|00000340| 63 6b 65 64 2e 0a 54 68 | 69 73 20 69 73 20 74 68 |cked..Th|is is th|
|00000350| 65 20 6c 69 74 74 6c 65 | 20 61 72 72 6f 77 20 74 |e little| arrow t|
|00000360| 6f 20 74 68 65 20 6c 65 | 66 74 20 6f 66 20 74 68 |o the le|ft of th|
|00000370| 65 20 73 63 72 6f 6c 6c | 62 61 72 2e 20 20 4f 6e |e scroll|bar.  On|
|00000380| 65 20 61 72 67 75 6d 65 | 6e 74 20 69 73 0a 70 61 |e argume|nt is.pa|
|00000390| 73 73 65 64 2c 20 74 68 | 65 20 73 63 72 6f 6c 6c |ssed, th|e scroll|
|000003a0| 62 61 72 27 73 20 77 69 | 6e 64 6f 77 2e 20 20 59 |bar's wi|ndow.  Y|
|000003b0| 6f 75 20 63 61 6e 20 61 | 64 76 69 73 65 20 74 68 |ou can a|dvise th|
|000003c0| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 74 6f 0a 63 |is funct|ion to.c|
|000003d0| 68 61 6e 67 65 20 74 68 | 65 20 73 63 72 6f 6c 6c |hange th|e scroll|
|000003e0| 62 61 72 20 62 65 68 61 | 76 69 6f 72 2e 1f 0a 28 |bar beha|vior...(|
|000003f0| 64 65 66 61 6c 69 61 73 | 20 27 73 63 72 6f 6c 6c |defalias| 'scroll|
|00000400| 62 61 72 2d 63 68 61 72 | 2d 6c 65 66 74 20 23 5b |bar-char|-left #[|
|00000410| 28 77 69 6e 64 6f 77 29 | 20 22 c0 09 21 ad 8b c2 |(window)| "..!...|
|00000420| 09 c3 09 21 53 5c 22 88 | c4 15 c6 87 22 20 5b 77 |...!S\".|...." [w|
|00000430| 69 6e 64 6f 77 2d 6c 69 | 76 65 2d 70 20 77 69 6e |indow-li|ve-p win|
|00000440| 64 6f 77 20 73 63 72 6f | 6c 6c 62 61 72 2d 73 65 |dow scro|llbar-se|
|00000450| 74 2d 68 73 63 72 6f 6c | 6c 20 77 69 6e 64 6f 77 |t-hscrol|l window|
|00000460| 2d 68 73 63 72 6f 6c 6c | 20 74 20 7a 6d 61 63 73 |-hscroll| t zmacs|
|00000470| 2d 72 65 67 69 6f 6e 2d | 73 74 61 79 73 20 6e 69 |-region-|stays ni|
|00000480| 6c 5d 20 34 20 28 23 24 | 20 2e 20 37 36 38 29 5d |l] 4 (#$| . 768)]|
|00000490| 29 0a 23 40 32 34 31 20 | 46 75 6e 63 74 69 6f 6e |).#@241 |Function|
|000004a0| 20 63 61 6c 6c 65 64 20 | 77 68 65 6e 20 74 68 65 | called |when the|
|000004b0| 20 63 68 61 72 2d 72 69 | 67 68 74 20 61 72 72 6f | char-ri|ght arro|
|000004c0| 77 20 6f 6e 20 74 68 65 | 20 73 63 72 6f 6c 6c 62 |w on the| scrollb|
|000004d0| 61 72 20 69 73 20 63 6c | 69 63 6b 65 64 2e 0a 54 |ar is cl|icked..T|
|000004e0| 68 69 73 20 69 73 20 74 | 68 65 20 6c 69 74 74 6c |his is t|he littl|
|000004f0| 65 20 61 72 72 6f 77 20 | 74 6f 20 74 68 65 20 72 |e arrow |to the r|
|00000500| 69 67 68 74 20 6f 66 20 | 74 68 65 20 73 63 72 6f |ight of |the scro|
|00000510| 6c 6c 62 61 72 2e 20 20 | 4f 6e 65 20 61 72 67 75 |llbar.  |One argu|
|00000520| 6d 65 6e 74 20 69 73 0a | 70 61 73 73 65 64 2c 20 |ment is.|passed, |
|00000530| 74 68 65 20 73 63 72 6f | 6c 6c 62 61 72 27 73 20 |the scro|llbar's |
|00000540| 77 69 6e 64 6f 77 2e 20 | 20 59 6f 75 20 63 61 6e |window. | You can|
|00000550| 20 61 64 76 69 73 65 20 | 74 68 69 73 20 66 75 6e | advise |this fun|
|00000560| 63 74 69 6f 6e 20 74 6f | 0a 63 68 61 6e 67 65 20 |ction to|.change |
|00000570| 74 68 65 20 73 63 72 6f | 6c 6c 62 61 72 20 62 65 |the scro|llbar be|
|00000580| 68 61 76 69 6f 72 2e 1f | 0a 28 64 65 66 61 6c 69 |havior..|.(defali|
|00000590| 61 73 20 27 73 63 72 6f | 6c 6c 62 61 72 2d 63 68 |as 'scro|llbar-ch|
|000005a0| 61 72 2d 72 69 67 68 74 | 20 23 5b 28 77 69 6e 64 |ar-right| #[(wind|
|000005b0| 6f 77 29 20 22 c0 09 21 | ad 8b c2 09 c3 09 21 54 |ow) "..!|......!T|
|000005c0| 5c 22 88 c4 15 c6 87 22 | 20 5b 77 69 6e 64 6f 77 |\"....."| [window|
|000005d0| 2d 6c 69 76 65 2d 70 20 | 77 69 6e 64 6f 77 20 73 |-live-p |window s|
|000005e0| 63 72 6f 6c 6c 62 61 72 | 2d 73 65 74 2d 68 73 63 |crollbar|-set-hsc|
|000005f0| 72 6f 6c 6c 20 77 69 6e | 64 6f 77 2d 68 73 63 72 |roll win|dow-hscr|
|00000600| 6f 6c 6c 20 74 20 7a 6d | 61 63 73 2d 72 65 67 69 |oll t zm|acs-regi|
|00000610| 6f 6e 2d 73 74 61 79 73 | 20 6e 69 6c 5d 20 34 20 |on-stays| nil] 4 |
|00000620| 28 23 24 20 2e 20 31 31 | 37 36 29 5d 29 0a 23 40 |(#$ . 11|76)]).#@|
|00000630| 32 34 34 20 46 75 6e 63 | 74 69 6f 6e 20 63 61 6c |244 Func|tion cal|
|00000640| 6c 65 64 20 77 68 65 6e | 20 74 68 65 20 75 73 65 |led when| the use|
|00000650| 72 20 67 69 76 65 73 20 | 74 68 65 20 22 70 61 67 |r gives |the "pag|
|00000660| 65 2d 6c 65 66 74 22 20 | 73 63 72 6f 6c 6c 62 61 |e-left" |scrollba|
|00000670| 72 20 61 63 74 69 6f 6e | 2e 0a 28 54 68 65 20 77 |r action|..(The w|
|00000680| 61 79 20 74 68 69 73 20 | 69 73 20 64 6f 6e 65 20 |ay this |is done |
|00000690| 63 61 6e 20 76 61 72 79 | 20 66 72 6f 6d 20 73 63 |can vary| from sc|
|000006a0| 72 6f 6c 6c 62 61 72 20 | 74 6f 20 73 63 72 6f 6c |rollbar |to scrol|
|000006b0| 6c 62 61 72 2e 29 20 4f | 6e 65 20 61 72 67 75 6d |lbar.) O|ne argum|
|000006c0| 65 6e 74 20 69 73 0a 70 | 61 73 73 65 64 2c 20 74 |ent is.p|assed, t|
|000006d0| 68 65 20 73 63 72 6f 6c | 6c 62 61 72 27 73 20 77 |he scrol|lbar's w|
|000006e0| 69 6e 64 6f 77 2e 20 20 | 59 6f 75 20 63 61 6e 20 |indow.  |You can |
|000006f0| 61 64 76 69 73 65 20 74 | 68 69 73 20 66 75 6e 63 |advise t|his func|
|00000700| 74 69 6f 6e 20 74 6f 0a | 63 68 61 6e 67 65 20 74 |tion to.|change t|
|00000710| 68 65 20 73 63 72 6f 6c | 6c 62 61 72 20 62 65 68 |he scrol|lbar beh|
|00000720| 61 76 69 6f 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |avior...|(defalia|
|00000730| 73 20 27 73 63 72 6f 6c | 6c 62 61 72 2d 70 61 67 |s 'scrol|lbar-pag|
|00000740| 65 2d 6c 65 66 74 20 23 | 5b 28 77 69 6e 64 6f 77 |e-left #|[(window|
|00000750| 29 20 22 c0 09 21 ad 91 | c2 09 c3 09 21 c4 09 21 |) "..!..|....!..!|
|00000760| c5 5a 5a 5c 22 88 c6 16 | 07 c8 87 22 20 5b 77 69 |.ZZ\"...|..." [wi|
|00000770| 6e 64 6f 77 2d 6c 69 76 | 65 2d 70 20 77 69 6e 64 |ndow-liv|e-p wind|
|00000780| 6f 77 20 73 63 72 6f 6c | 6c 62 61 72 2d 73 65 74 |ow scrol|lbar-set|
|00000790| 2d 68 73 63 72 6f 6c 6c | 20 77 69 6e 64 6f 77 2d |-hscroll| window-|
|000007a0| 68 73 63 72 6f 6c 6c 20 | 77 69 6e 64 6f 77 2d 77 |hscroll |window-w|
|000007b0| 69 64 74 68 20 32 20 74 | 20 7a 6d 61 63 73 2d 72 |idth 2 t| zmacs-r|
|000007c0| 65 67 69 6f 6e 2d 73 74 | 61 79 73 20 6e 69 6c 5d |egion-st|ays nil]|
|000007d0| 20 35 20 28 23 24 20 2e | 20 31 35 38 38 29 5d 29 | 5 (#$ .| 1588)])|
|000007e0| 0a 23 40 32 34 35 20 46 | 75 6e 63 74 69 6f 6e 20 |.#@245 F|unction |
|000007f0| 63 61 6c 6c 65 64 20 77 | 68 65 6e 20 74 68 65 20 |called w|hen the |
|00000800| 75 73 65 72 20 67 69 76 | 65 73 20 74 68 65 20 22 |user giv|es the "|
|00000810| 70 61 67 65 2d 72 69 67 | 68 74 22 20 73 63 72 6f |page-rig|ht" scro|
|00000820| 6c 6c 62 61 72 20 61 63 | 74 69 6f 6e 2e 0a 28 54 |llbar ac|tion..(T|
|00000830| 68 65 20 77 61 79 20 74 | 68 69 73 20 69 73 20 64 |he way t|his is d|
|00000840| 6f 6e 65 20 63 61 6e 20 | 76 61 72 79 20 66 72 6f |one can |vary fro|
|00000850| 6d 20 73 63 72 6f 6c 6c | 62 61 72 20 74 6f 20 73 |m scroll|bar to s|
|00000860| 63 72 6f 6c 6c 62 61 72 | 2e 29 20 4f 6e 65 20 61 |crollbar|.) One a|
|00000870| 72 67 75 6d 65 6e 74 20 | 69 73 0a 70 61 73 73 65 |rgument |is.passe|
|00000880| 64 2c 20 74 68 65 20 73 | 63 72 6f 6c 6c 62 61 72 |d, the s|crollbar|
|00000890| 27 73 20 77 69 6e 64 6f | 77 2e 20 20 59 6f 75 20 |'s windo|w.  You |
|000008a0| 63 61 6e 20 61 64 76 69 | 73 65 20 74 68 69 73 20 |can advi|se this |
|000008b0| 66 75 6e 63 74 69 6f 6e | 20 74 6f 0a 63 68 61 6e |function| to.chan|
|000008c0| 67 65 20 74 68 65 20 73 | 63 72 6f 6c 6c 62 61 72 |ge the s|crollbar|
|000008d0| 20 62 65 68 61 76 69 6f | 72 2e 1f 0a 28 64 65 66 | behavio|r...(def|
|000008e0| 61 6c 69 61 73 20 27 73 | 63 72 6f 6c 6c 62 61 72 |alias 's|crollbar|
|000008f0| 2d 70 61 67 65 2d 72 69 | 67 68 74 20 23 5b 28 77 |-page-ri|ght #[(w|
|00000900| 69 6e 64 6f 77 29 20 22 | c0 09 21 ad 91 c2 09 c3 |indow) "|..!.....|
|00000910| 09 21 c4 09 21 c5 5a 5c | 5c 5c 22 88 c6 16 07 c8 |.!..!.Z\|\\".....|
|00000920| 87 22 20 5b 77 69 6e 64 | 6f 77 2d 6c 69 76 65 2d |." [wind|ow-live-|
|00000930| 70 20 77 69 6e 64 6f 77 | 20 73 63 72 6f 6c 6c 62 |p window| scrollb|
|00000940| 61 72 2d 73 65 74 2d 68 | 73 63 72 6f 6c 6c 20 77 |ar-set-h|scroll w|
|00000950| 69 6e 64 6f 77 2d 68 73 | 63 72 6f 6c 6c 20 77 69 |indow-hs|croll wi|
|00000960| 6e 64 6f 77 2d 77 69 64 | 74 68 20 32 20 74 20 7a |ndow-wid|th 2 t z|
|00000970| 6d 61 63 73 2d 72 65 67 | 69 6f 6e 2d 73 74 61 79 |macs-reg|ion-stay|
|00000980| 73 20 6e 69 6c 5d 20 35 | 20 28 23 24 20 2e 20 32 |s nil] 5| (#$ . 2|
|00000990| 30 32 33 29 5d 29 0a 23 | 40 32 34 33 20 46 75 6e |023)]).#|@243 Fun|
|000009a0| 63 74 69 6f 6e 20 63 61 | 6c 6c 65 64 20 77 68 65 |ction ca|lled whe|
|000009b0| 6e 20 74 68 65 20 75 73 | 65 72 20 67 69 76 65 73 |n the us|er gives|
|000009c0| 20 74 68 65 20 22 74 6f | 2d 6c 65 66 74 22 20 73 | the "to|-left" s|
|000009d0| 63 72 6f 6c 6c 62 61 72 | 20 61 63 74 69 6f 6e 2e |crollbar| action.|
|000009e0| 0a 28 54 68 65 20 77 61 | 79 20 74 68 69 73 20 69 |.(The wa|y this i|
|000009f0| 73 20 64 6f 6e 65 20 63 | 61 6e 20 76 61 72 79 20 |s done c|an vary |
|00000a00| 66 72 6f 6d 20 73 63 72 | 6f 6c 6c 62 61 72 20 74 |from scr|ollbar t|
|00000a10| 6f 20 73 63 72 6f 6c 6c | 62 61 72 2e 29 2e 20 4f |o scroll|bar.). O|
|00000a20| 6e 65 20 61 72 67 75 6d | 65 6e 74 20 69 73 0a 70 |ne argum|ent is.p|
|00000a30| 61 73 73 65 64 2c 20 74 | 68 65 20 73 63 72 6f 6c |assed, t|he scrol|
|00000a40| 6c 62 61 72 27 73 20 77 | 69 6e 64 6f 77 2e 20 20 |lbar's w|indow.  |
|00000a50| 59 6f 75 20 63 61 6e 20 | 61 64 76 69 73 65 20 74 |You can |advise t|
|00000a60| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 74 6f 0a |his func|tion to.|
|00000a70| 63 68 61 6e 67 65 20 74 | 68 65 20 73 63 72 6f 6c |change t|he scrol|
|00000a80| 6c 62 61 72 20 62 65 68 | 61 76 69 6f 72 2e 1f 0a |lbar beh|avior...|
|00000a90| 28 64 65 66 61 6c 69 61 | 73 20 27 73 63 72 6f 6c |(defalia|s 'scrol|
|00000aa0| 6c 62 61 72 2d 74 6f 2d | 6c 65 66 74 20 23 5b 28 |lbar-to-|left #[(|
|00000ab0| 77 69 6e 64 6f 77 29 20 | 22 c0 09 21 ad 88 c2 09 |window) |"..!....|
|00000ac0| c3 5c 22 88 c4 15 c6 87 | 22 20 5b 77 69 6e 64 6f |.\".....|" [windo|
|00000ad0| 77 2d 6c 69 76 65 2d 70 | 20 77 69 6e 64 6f 77 20 |w-live-p| window |
|00000ae0| 73 63 72 6f 6c 6c 62 61 | 72 2d 73 65 74 2d 68 73 |scrollba|r-set-hs|
|00000af0| 63 72 6f 6c 6c 20 30 20 | 74 20 7a 6d 61 63 73 2d |croll 0 |t zmacs-|
|00000b00| 72 65 67 69 6f 6e 2d 73 | 74 61 79 73 20 6e 69 6c |region-s|tays nil|
|00000b10| 5d 20 33 20 28 23 24 20 | 2e 20 32 34 36 31 29 5d |] 3 (#$ |. 2461)]|
|00000b20| 29 0a 23 40 32 34 34 20 | 46 75 6e 63 74 69 6f 6e |).#@244 |Function|
|00000b30| 20 63 61 6c 6c 65 64 20 | 77 68 65 6e 20 74 68 65 | called |when the|
|00000b40| 20 75 73 65 72 20 67 69 | 76 65 73 20 74 68 65 20 | user gi|ves the |
|00000b50| 22 74 6f 2d 72 69 67 68 | 74 22 20 73 63 72 6f 6c |"to-righ|t" scrol|
|00000b60| 6c 62 61 72 20 61 63 74 | 69 6f 6e 2e 0a 28 54 68 |lbar act|ion..(Th|
|00000b70| 65 20 77 61 79 20 74 68 | 69 73 20 69 73 20 64 6f |e way th|is is do|
|00000b80| 6e 65 20 63 61 6e 20 76 | 61 72 79 20 66 72 6f 6d |ne can v|ary from|
|00000b90| 20 73 63 72 6f 6c 6c 62 | 61 72 20 74 6f 20 73 63 | scrollb|ar to sc|
|00000ba0| 72 6f 6c 6c 62 61 72 2e | 29 2e 20 4f 6e 65 20 61 |rollbar.|). One a|
|00000bb0| 72 67 75 6d 65 6e 74 20 | 69 73 0a 70 61 73 73 65 |rgument |is.passe|
|00000bc0| 64 2c 20 74 68 65 20 73 | 63 72 6f 6c 6c 62 61 72 |d, the s|crollbar|
|00000bd0| 27 73 20 77 69 6e 64 6f | 77 2e 20 20 59 6f 75 20 |'s windo|w.  You |
|00000be0| 63 61 6e 20 61 64 76 69 | 73 65 20 74 68 69 73 20 |can advi|se this |
|00000bf0| 66 75 6e 63 74 69 6f 6e | 20 74 6f 0a 63 68 61 6e |function| to.chan|
|00000c00| 67 65 20 74 68 65 20 73 | 63 72 6f 6c 6c 62 61 72 |ge the s|crollbar|
|00000c10| 20 62 65 68 61 76 69 6f | 72 2e 1f 0a 28 64 65 66 | behavio|r...(def|
|00000c20| 61 6c 69 61 73 20 27 73 | 63 72 6f 6c 6c 62 61 72 |alias 's|crollbar|
|00000c30| 2d 74 6f 2d 72 69 67 68 | 74 20 23 5b 28 77 69 6e |-to-righ|t #[(win|
|00000c40| 64 6f 77 29 20 22 c0 09 | 21 ad 88 c2 09 c3 5c 22 |dow) "..|!.....\"|
|00000c50| 88 c4 15 c6 87 22 20 5b | 77 69 6e 64 6f 77 2d 6c |....." [|window-l|
|00000c60| 69 76 65 2d 70 20 77 69 | 6e 64 6f 77 20 73 63 72 |ive-p wi|ndow scr|
|00000c70| 6f 6c 6c 62 61 72 2d 73 | 65 74 2d 68 73 63 72 6f |ollbar-s|et-hscro|
|00000c80| 6c 6c 20 6d 61 78 20 74 | 20 7a 6d 61 63 73 2d 72 |ll max t| zmacs-r|
|00000c90| 65 67 69 6f 6e 2d 73 74 | 61 79 73 20 6e 69 6c 5d |egion-st|ays nil]|
|00000ca0| 20 33 20 28 23 24 20 2e | 20 32 38 35 36 29 5d 29 | 3 (#$ .| 2856)])|
|00000cb0| 0a 23 40 32 36 34 20 46 | 75 6e 63 74 69 6f 6e 20 |.#@264 F|unction |
|00000cc0| 63 61 6c 6c 65 64 20 77 | 68 65 6e 20 74 68 65 20 |called w|hen the |
|00000cd0| 75 73 65 72 20 64 72 61 | 67 73 20 74 68 65 20 68 |user dra|gs the h|
|00000ce0| 6f 72 69 7a 6f 6e 74 61 | 6c 20 73 63 72 6f 6c 6c |orizonta|l scroll|
|00000cf0| 62 61 72 20 74 68 75 6d | 62 2e 0a 4f 6e 65 20 61 |bar thum|b..One a|
|00000d00| 72 67 75 6d 65 6e 74 20 | 69 73 20 70 61 73 73 65 |rgument |is passe|
|00000d10| 64 2c 20 61 20 63 6f 6e | 73 20 63 6f 6e 74 61 69 |d, a con|s contai|
|00000d20| 6e 69 6e 67 20 74 68 65 | 20 73 63 72 6f 6c 6c 62 |ning the| scrollb|
|00000d30| 61 72 27 73 20 77 69 6e | 64 6f 77 20 61 6e 64 20 |ar's win|dow and |
|00000d40| 61 20 76 61 6c 75 65 0a | 72 65 70 72 65 73 65 6e |a value.|represen|
|00000d50| 74 69 6e 67 20 68 6f 77 | 20 6d 61 6e 79 20 63 6f |ting how| many co|
|00000d60| 6c 75 6d 6e 73 20 74 68 | 65 20 74 68 75 6d 62 20 |lumns th|e thumb |
|00000d70| 69 73 20 73 6c 69 64 20 | 6f 76 65 72 2e 20 20 59 |is slid |over.  Y|
|00000d80| 6f 75 20 63 61 6e 20 61 | 64 76 69 73 65 0a 74 68 |ou can a|dvise.th|
|00000d90| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 74 6f 20 63 |is funct|ion to c|
|00000da0| 68 61 6e 67 65 20 74 68 | 65 20 73 63 72 6f 6c 6c |hange th|e scroll|
|00000db0| 62 61 72 20 62 65 68 61 | 76 69 6f 72 2e 1f 0a 28 |bar beha|vior...(|
|00000dc0| 64 65 66 61 6c 69 61 73 | 20 27 73 63 72 6f 6c 6c |defalias| 'scroll|
|00000dd0| 62 61 72 2d 68 6f 72 69 | 7a 6f 6e 74 61 6c 2d 64 |bar-hori|zontal-d|
|00000de0| 72 61 67 20 23 5b 28 64 | 61 74 61 29 20 22 08 40 |rag #[(d|ata) ".@|
|00000df0| 08 41 19 1a c3 5c 6e 21 | ad 8d 09 a8 ad 89 c4 5c |.A...\n!|.......\|
|00000e00| 6e 09 5c 22 88 c5 16 06 | c7 2a 87 22 20 5b 64 61 |n.\"....|.*." [da|
|00000e10| 74 61 20 76 61 6c 75 65 | 20 77 69 6e 64 6f 77 20 |ta value| window |
|00000e20| 77 69 6e 64 6f 77 2d 6c | 69 76 65 2d 70 20 73 63 |window-l|ive-p sc|
|00000e30| 72 6f 6c 6c 62 61 72 2d | 73 65 74 2d 68 73 63 72 |rollbar-|set-hscr|
|00000e40| 6f 6c 6c 20 74 20 7a 6d | 61 63 73 2d 72 65 67 69 |oll t zm|acs-regi|
|00000e50| 6f 6e 2d 73 74 61 79 73 | 20 6e 69 6c 5d 20 33 20 |on-stays| nil] 3 |
|00000e60| 28 23 24 20 2e 20 33 32 | 35 35 29 5d 29 0a       |(#$ . 32|55)]).  |
+--------+-------------------------+-------------------------+--------+--------+